Attribute VB_Name = "Resultados"
Sub Extraer(valor, ByRef Fecha, ByRef hora, ByRef Usuario)
    Fecha = ""
    hora = ""
    Usuario = ""
    cont = 0
    If IsNull(valor) Then Exit Sub
    valor = valor + " "
    For i = 1 To Len(valor)
        l = Mid(valor, i, 1)
        If l <> " " Then
            If cont = 0 Then Usuario = Usuario & l
            If cont = 1 Then Fecha = Fecha & l
            If cont = 2 Then hora = hora & l
        Else
            cont = cont + 1
        End If
    
    Next

End Sub
Sub GenerarTEMP(FI, FF, caj)
Dim fp, hp, up, FS, hs, us
Dim Fecha As Date
Dim fechai As Date
Dim fechaf As Date
Dim entro As Boolean
    formato = Format(Mid(FI, 2, 10), "mm/dd/yyyy")
    fechai = formato
    
    formato = Format(Mid(FF, 2, 10), "mm/dd/yyyy")

    fechaf = formato
    
    
    Base.Execute "delete from temp"
    Dim t As DAO.recordset
    Dim x As DAO.recordset
    Set x = Base.OpenRecordset("temp")
    
    Set t = Base.OpenRecordset("select *from pedido where(fecha >= " & FI & " and fecha <=" & FF & ") OR (fechaC >= " & FI & " and fechaC <=" & FF & ")")
    Base.Execute "delete from pagos"
    Dim tPagos As DAO.recordset
    Set tPagos = Base.OpenRecordset("pagos")
    While Not t.EOF
    entro = False
    Pedido1 = t(0)
    entro1 = False
        Extraer t("ppago"), fp, hp, up
        Extraer t("spago"), FS, hs, us
        If Len(fp) > 0 Then
            x.AddNew
             Fecha = fp
            If Fecha < fechai Or Fecha > fechaf Then GoTo 1
                entro = False
                If up = caj Or caj = "" Then
                If t("ABONO") > 0 Then
                    tPagos.AddNew
                        tPagos(1) = up
                        tPagos(2) = fp
                        tPagos(3) = hp
                        tPagos(4) = t("ABONO")
                        tPagos(5) = "1ro"
                        tPagos(6) = t(0)
                    tPagos.Update
                End If
                x(1) = fp
                x(2) = hp
                x(3) = up
                x(4) = t("ABONO")
                entro = True
    entro1 = True
            End If
1:

            If Len(FS) > 0 Then
            Fecha = FS
            If Fecha < fechai Or Fecha > fechaf Then GoTo 2
                If us = caj Or caj = "" Then
                    x(5) = FS
                    x(6) = hs
                    
                    x(7) = us
                    montoiva = t("mto_bruto") + t("IVA")
                    pago2 = montoiva - t("abono")
                    
                    x(8) = pago2
                    entro = True
                If t("Mto_BRUTO") - t("abono") > 0 Then
                Fecha = FS
                    tPagos.AddNew
                        tPagos(1) = us
                        tPagos(2) = FS
                        tPagos(3) = hs
                        tPagos(4) = pago2
                        tPagos(5) = "2do"
                        tPagos(6) = t(0)
                    tPagos.Update
                End If
2:
            End If
        End If
        x(0) = t(0)
        
' mario error cajero pagos

'       On Error Resume Next
       
        If (entro And pago2 <> 0) Or entro1 Then
            x.Update
        Else
            x.CancelUpdate
        End If
            
    End If
        t.MoveNext
Wend
    For i = 1 To 0
        Base.Close
        Conectar_Base
        Set t = Base.OpenRecordset("temp")
        t.Close
        Set t = Base.OpenRecordset("temp")
        t.Close
    Next
End Sub
